home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / os2 / os2pl122.zip / MXOPLD33.ZIP / BACKUP.CMD next >
OS/2 REXX Batch file  |  1996-08-04  |  804b  |  39 lines
  1. /* *************************************** */
  2. /*     BACKUP                              */
  3. /* 25.02.96 by M.Riedel 70:7101/1100       */
  4. /* *************************************** */
  5. call rxfuncadd 'SYSFILETREE','REXXUTIL','SYSFILETREE'
  6.  
  7. args=arg()
  8. if args=0 then do
  9.    say 'Aufruf mit BACKUP <Pfad des HOST.LOG> <GAMENUMMER>'
  10. signal ende
  11. end
  12.      
  13. arg hf gamenr
  14.  
  15. hfile=strip(hf,'t','\')'\evaluate.log'
  16. zfile=strip(hf,'t','\')'\*.*'
  17.  
  18. call sysfiletree hfile,'TURN','F'
  19. IF file.0 = 0 THEN Do
  20.   SAY "EVALUATE.LOG wurde nicht gefunden!"
  21.   Exit
  22. END
  23.  
  24. DO 5     
  25.  inline = TRANSLATE(Strip(Linein(hfile)),' ',d2c(09))
  26. END
  27.  
  28. Call Lineout(hfile)
  29.  
  30. PARSE VAR inline Keyword Keyword2 Value
  31.  
  32. trnnum=STRIP(Value)
  33.  
  34. zipname="backup\Oturn_"trnnum".zi"gamenr
  35.  
  36. zip zipname zfile
  37.  
  38. ende:
  39.